(require (planet schematics/schemeunit:3))

(define (a-plus-abs-b a b)
  ((if (> b 0) + -) a b))

;Se b for maior que 0, calcula a + b, senão calcula a - b. Em outras palavras,
;calcula a soma de a mais o valor absoluto de b.

(check-equal? (a-plus-abs-b 2 3) 5)
(check-equal? (a-plus-abs-b 2 -3) 5)

